Precision Software Appli…tions Silver Collection 1/Precision Software Applications Silver Collection Volume One (PSM) (1993).iso/demos/mag6demo.exe/M600D2.ZIP/POW.RJE

Text File | 1992-06-09 | 3KB | 58 lines

@c10 @a14 @c0 @c18
                         ╔════════════════════════════╗
                         ║                            ║
                         ║ Magnum RJE POWER Processor ║
                         ║                            ║
                         ╚════════════════════════════╝
@a11
This is a 2-step process (one step for you). In the first step, you will
upload the .POW response file which your offline POWER.EXE program created.
The file you will upload will be [e-mail] with the upload protocol of your
choice. @a12DO NOT ARC or ZIP this upload!!@a11 Magnum is expecting you to
upload [e-mail] in it's UNALTERED form as output by the POWER.EXE program.

The 2nd step (processing of the .POW file) is an RJE (Remote Job Entry) task
which is automatically started by Magnum after you successfully complete the
upload of the [e-mail] file. This RJE task processes your .POW file and adds
your messages to the message database. @a79AFTER SUCCESSFUL UPLOAD, PLEASE DELETE
YOUR [e-mail] FILE ON YOUR MACHINE SO THE MESSAGES WILL NOT BE DUPLICATED
NEXT TIME YOU UPLOAD YOUR POWER MESSAGES!@a11

Are you ready to upload [e-mail] (Y/N) => @z0('yn');
@b1(z0="y"); @c16 @p1
    Single: X=Xmodem, C=Xmodem-CRC, 1=Xmodem-1K
     Batch: Y=Ymodem, G=Ymodem-G, Z=Zmodem         Q=QUIT

Enter Protocol (X,C,1,Y,G,Z,Q) => @z10('xc1ygzq'); @b2(z10!="Q"); @c16 @p2

@a11 Begin your upload of @a14 [e-mail] @a11 NOW!
@c12
@z0="getpow.exe";                          PROGRAM NAME (External Directory)
@z1=u54; @z1=(z1+" ");                     parm1: filespec to mbbsinit.x
@z2=u1;  @z1=(z1+z2); @z1=(z1+" ");        parm2: User ID number
@z2=o12; @z1=(z1+z2); @z1=(z1+" ");        parm3: Node# user is on
@z2=o19; @z1=(z1+z2); @z1=(z1+" ");        parm4: Type of Logon (R,L,Px)
@z2=z10; @z1=(z1+z2); @z1=(z1+" ");        parm5: Protocol
@z2=v0;  @z1=(z1+z2); @n0=7; @n0=(n0|128); parm6: Com Handle. Mark Inheritable.
@e0                                        EXECUTE GETPOW.EXE Pgm (Ext Dir)
@b3(n1=0); @c16 @p3                        Branch around 'exit' if successful
@z0="cmd.exe"; @n0=0;                      Prepare CHKANSI.EXE against upload
@z1="/c chkansi.exe ";  @z2=v88;
@z1=(z1+z2); @z1=(z1+"\ID");               Prepare Parms for CHKANSI.EXE
@z2=u1; @z1=(z1+z2);
@z1=(z1+".POW /r >nul");                   Suppress output
@e0                                        Execute CHKANSI.EXE (Ext Dir)
@b33(n1!=4);                               Check return code (4=BAD)
@c13 Harmful ANSI Escape Sequence Detected!
 Processing Aborted! @c16
@p33
@n0=99;                                    Prepare RJE. Default Priority/Class
@n1=1;                                     Notify user when RJE job completes
@z0="rjepow.exe";                          RJE PROGRAM NAME (RJE Directory)
@z1=u54; @z1=(z1+" ");                     parm1: filespec to mbbsinit.x
@z2=u1;  @z1=(z1+z2);                      parm2: User ID number;
@e1                                        EXECUTE RJEPOW.EXE Pgm (RJE Dir)
@c13
@b4(n1>0); RJE Job Submission Failed - Try Again Later! @z0=""; @z1=""; @c16
@p4 RJE Job @z1; Successfully Submitted! @z0=""; @z1=""; @c16